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1 

Mz-o\,*Ttm?u AaPi&*R#ffi-ra«pi* m ub 
D a n {b3MS£<lx*: g®]g|5p D „{b$&ttp >/ w v 

Ao 

[lira 2] mm^shit^mt, 10 
+im*i& tmrnemm u tmrntitms^m ub$ 

t, 20 

fbs ntemmzftzfu aws t Lxtzm s -fu 
^as^ish^©^ 

fsa>*7p 75 Affiflffc-T 3 £ t) fuIESfttiBiSSP 
^fco^TfijSB^n ^5 Ag|5n a p^S!^tti-rg|5p D pi¥Hi LIB 
iSi:LTffiIB7ny5Ay-**ffllfcU &7u95L 
V-XcotfffEJSmiBjScD^IEtov^T, ffiKWAWW L 
IBM^BfiaB^o^AglJp^JcjcOtf ^ C fc*nriit-r* 

[||*S5] 7ny7Ay-X*0affiKiS*«ffiL 

ttursaflu&sttsftui^gtfc. 40 
Hmtmnto uzmcmmu wmnkbitmswmL 
^ffaitmmmiimm^mt^Lrc^uit so 
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[000 1] 

mzmttffl&it? s §®)gi?p D pfb^Hi^3 y> w v ^xt 

[000 2] 

[ee*©s^] m*. •fuvvmshftzzmmLxv 

7h-)x7 Off fiEff 5 MnV7h-7x 
[0 0 0 3] 

Kfej:tf#iHi*S"rsiiii^*^fe. liiEiffttf 

[0 0 0 4] *li^<0gWti, yW^Ay-XcfcDjg 

g-r § «n« «fc tf ¥H*e»T « « g b^ftp 

[000 5] 

SulE^{WIBaigl?»tcov^THijlB7 p a y 5 Lffl&ZMfrtii 
tco^T, me«MWU LIB^HuIB^n ^5 A^p a D fc 

[0006] xmucmztmrnm*. 

yp^Ay-X©^BB^7°ny5Ag|5p a p{b-rSi: 
tfefc, B^JH^5iMlfi^g(5^(i:ov^TMI^7 p py'7Ag|?p a B 
^S!^ai-rg|5B a pH?lllLgsaii: LTMIB^P^Ay-X 
^S«L, Ryn^^Ay-xoWeiffillHaSOtfiEK: 

[0007] ^mnom^nimm^^y^u^^x 

fAii, py/W^c^py^Ay-xo^iBai^ 
yp^A^bfS fefc, BOieJUttfffiSffi^fco 

TiE^D^Ay-xsaib, HuiB^py^Ay- 
7 > ©t^ilB3i^e^f^ao^IE^c^)v^T, tuSBgi5p a pn¥ffi lsbjze 

^MIB^p 9 <y Ag|5p a p{c J:DfT9ili:T\ 7"n^7AV 



3 

co o o 8] *m\mmmmt. ay?u>mic-fu 
a v-wmmm*? p y ^ L^&it-t s 1 1 & 

x , tuffiapa^ai Lim^m&v y ^ Ag^c <t d ff 

fa a v-wmmmft^ftictttzmmzmiE 

So 

[0 0 0 9] 

^xmwtZo mm. *nm<D&&<o&wffl&itmm 20 

ilT^S. EHSg3fc:{i7py7A7-X3 1, 7p 

tv* 0 coa&Bffc^a 2 lit, ny/W?2<DMmm 

D a pftLTya^vAg|? n a D3 2 LTEMg§3'M&Sfi 
U $ft^n^7AV-X3 l fOWtOEJESKWcoi^ 
ThuET'p ^5 A«5iB*»!*HJ-rSPia"* UJ LEiBfcfiJll 
LT^«^nyvAV-X3 3i;LTE1iSg3^W 

COO l 0] iftf^lCO^TlttWrSo 02 l±, * 

gfWIM&ttP >/W 9 fX-r AO»f^**-r 7 n 

hT?&0» WT, #7n— f-ir-FfcflteTii 40 

^{cftoTpy/vr5 2#7py7AV-X3 lcony 

/W^fftofc^, A^gg i ^p.#^p>n/cgi5p a pfk 
ii^g|5p D p{b¥©2 nc4^.p>n> 8w&fb«yitfiM»&-f 
5o gi5p a p{i:#is2 nt. $Hwi&fm&tomK.* 
o^&immtDnfticD^T&fetz (xt^7s 

1) o 35p D p{b*fffr&^Ji££g|5p a p{b&3I£ 

coo i n xf7ys 1 fc43^T»flft«yi©£fir* 
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»#TlS**fc ££7^^ AV-X 3 1 *0»a$fc(i 
3) o ^fy^S 3tcfc^Tg<HLfcE$#fciiiT*tfc 

Uf7ys6) , a?o a p{bsaa^7-r§o 

CO 0 1 2] -77, Xx>v7S 3fCt3V^T, 3>/^7 

2<0ft?«f^H*t,i:{c7ayvAy-X3 1 *©»fi3; 

^mfttE^gPp a pfk^a^ji*. HUEX-r^ys 2<D5I{« 
E£N*XffiI£ «fc 0 «HR L /-c^ftt L fcEizE£g|Sp a p{b L T 
7p y v Ag|5D a p 3 2 LTttTJ LEtttttt 3 'Nfclfif 
5 0 LT, Xf -y^S 4 ©3Sf£lEajai5a a p{l:5aa(D^t7 

ft, yay^Av-xamiaa^jity Uf7^s 

5) o C 0^ny7 AV-XlS^S!iaT'«, 7p?vA 

p^^M^aj-rgPpWtiiLEaitcsmL^ sis^o^ 

A V-X 3 3 i: LTEttSM 3 ^Ifl U g|$p D p{b*aJlltf} 
^fiia^iity Uf7/S6) o C«gBp D p{bi£3lffi73$!L 

COO 1 3] i^T> ny/W^I^O^AV-X 

3 1 (ommmzfu tf^&tt&itirztt&ic, me 

JS««BSfil5^K o^TME7a y v Ag|?p a p%M*Bi-rgl5 
p a p»?l±SLE^i:LTHuE7n^AV-X^S*L, m 
E^ny^AV-XOtflE^E^lc-ot^TO^iEtco 
^Tfi, tuESPpWHi LE^SI^gl3p D pBf Hi UEafc* 
OaTt^tHL huE7p ^ 7 Ag|?p a p 3 2 {c <fc 0 fr ^ • C t jfi 
UJ*> 7ny5AV-X3 lO^iE^LMtca^©^ 
a ^ AgPp°p 3 2 5 c fc^Rl^fc* 0 > JifKE 

COO 1 4] ^{C, *IISg(D^fi|OS®]g|5p a p{bil^P 
^W^v'X7 1 A<Di(]{^mi*^ffl^Tl«H^-r§ 0 ft 

*3. SiB^C|^bT«/£<a]anTV^COBOLWl§ ; & 

>/W;Wi^fi:tJ£i\ 03{c^TrtS(D7py7Ay- 
X3 ncWl3^W7 2^3^W;^fT% 

azjsb i f)^^^titc^ff 0 {tmmcm\ &&<t% 
7 s i) iciua^-rso #fc> »ffiiEattis«n!¥a 

2 1ata*)^ 03(C^-r7Py5AV-X3 1 CD 1 0 

3 o'nfrZ l o 7 off £ 2 o i 205 off^fc 
5SftM4©feSE^^ftbT^-5<: fc*ttfg|gft4: LT 
?#So ^tc, ^f«E^gi5p c pftJ!iIl¥S2 lbfciO, m 
ft(Ei££7p?7Ag|5p a B3 2 i:LTffi7lL, EHSH3 

fcte*fti-5 0 ^fc, 7pyvAy-xnmsaa2 1 etc 

03CO1 0 3 0ff^6 1 0 7 0ffSP^> *3cfct;2 
0 101^^2 0 5 OfTWftfc^ft^ftflKWWLKiS 
3 3 a, 3 3 btcS*LT^*^7P^AV-X3 3 



(4) 
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*a?ju Ett&B3fcfeffr4-&. mmc m&imm 

l±i*Ma¥S2 1 d(Cj;0, 03© 1 0 3 0tTfrP> 1 0 
7 OffSflfh fccfctf 2 0 1 Off^?> 2 0 5 OfrS#*95 

[0 0 15] ft^>T, py/V;l'i#{c:7'py"^Ay-x 
3 1 ®^<WIE^g|?^^yn^vAg|?o a Bffr§ £ £ tfc, 
Sli££ittEiSS#**,&i¥tti UBS 33a, 3 3 b £: L 

X©MES{WE&pl5#fcoi>T©l§ffifco^Tl±> SutB 

a5p a p^aiueai3 3 a, 3 3 b*3Kttfii9ttiuEa£3 10 

3a, 3 3 b fc <fc D g!*tU L/itiJE^P 9*7 Agp D a n 3 2 

©iiiEfc w Lm^ss?©^ ^^AM 3 2 &as l 

Tx lul2^n^-7Ag|?o a o3 2^fijE^B t WajLE*B3 3 

a . 3 3 b *flffi-r § T?nwa«HiBa»»icj*r § 

$ fc glW.{b©#©fc a6©M&tT 5 &Btf* < 

[0 0 16] W±©<fc3fc» <fcntf, p 

52 i tfay/u? 2<DMffim%*& ticnmzrcim 20 

tftfKSnfcffiESra LfcEa*9Sfi{L LT^n ^5 A95 

53 2 fcLTtt^U *.tt"fu9'yLV—7>Z 1 *©3i 

BftfJL82a3 3a, 3 3bfcfij|SU liSf^n^i, 
y-X 3 3 i: LTffi^ L, £ efcS&BrftfcMTS* «tf 
UJ**l4fc*w«ti*«l*Tf**fc*, ya^AV 
-xftlEftoa W;H»fc SiiWfcWi&fbtffTtafu 
yWvAy-X3 1 <D®IElcttLmicmm<D-7u77 

i±®&z®.m-rz>£ttfvsmic%*). yn^Lv-x 30 

p d p 3 2 Jf>gUSPf a UBS 3 3 a , 3 3b IT § fctt 
■PW*, «IEfcBTSB*lig*J:tf¥IHI*gKT** Sfc 
g(5o a ofk<D*cO/ci6(DMII^fT^ &Btf ft < 
[0 0 17] Jfcfc, *SHB©flfi©H»0»«fcOV>T« 
0£T3 O 04&, **SS©JB«©i»S D t B fb«Hift3> 
/W7->7fAOli^tyn7^0T'^§o 04 til 
fc^T0 l fcl?|--*fcttffli!S©ffl5#fcovvniro— ©ft 

^>XxAti, 3^W7*SBLfeE8i»6m 40 

C©ES»{*6tt«SC"rV*^ 
^©ffiOIBSSSM*?* o T <fc L\, 
[0 0 18] *^SS©^©fiftfcov>TljiB^T 

7*-^aa«B7©»^*{iPjwT*. x-* 
Mass 7 {iM#i£A,£a([EP y/W70Hit j: o m 

-©jQHSStfTT*. A73gBl^5>ny/W;U}g^43 
cfctf93p a p{b^tf4;te>*i3£, ftTTWxAy-x 
3 l©=i>/ W;l/*fift\ A**B 1 *»6aWMb«**i« 50 



WfMT 1 1 -3 2 7 8 8 7 
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**«m*tt*T*. niHffijS©*sfflm^»m«nfe 

C ©£flWBa*ffi&ft LT 7°p ^yLMSx 3 2 
LTHtf) LEBSeB 3 ^telfi L, «{HE^©fe-5lim 
LGiCicWK LTiim^yn ^ A y-X 3 
3i:LTEttSB3fct6iWTS. S&fc, gRBrffcLfclR 
©1f 8I£aJ7:gB 4 Ka^S-&5 0 
[0 0 19] «±©J:3fc:, *H«g©^8|{c<fcntf, n 

Ag|5Q a n3 2 tLTttitlU $^n^7Ay-X3 1* 
©^Eaa5^{;:ov^THuE^n^5Agl?n a B^^tBT 
flUWttUBSfcttKU iI^ny 7 AV-^3 3 
fcLTtHJiU cne.yu^Ag|5B Q B3 2fcJ:£fiB£» 
^a^Ay-X3 3*EttSB3KttittU 

Rittwtzm mttmtimw 4 t^sti5i*-p*5 

fcfe, •?uif7L > v-7>&iE&<Dny/W)mic. EiS 
p^AgPB a B^f#LT, HuEyny^AV-X©^ 

aBaa^fcWTs^ttfttfEtf^a^^AffliB^Wianf 

0*¥Pp1^@MT* $ rzffl§h<t<Dfr<Dtc&b<D>l!! ! mitft o 
[00 20] 

AV-X©«iEfc:W t«tc««f©^o Ag|?B a B^'f# 
TSCfcffBrffite&D, MEyn^Ay-X©^fWE 

a?gi5^{c wt s raaftiiiE^^n Agw&^apanpai 
^tm$mx* t ^ * fcgi5B B Bfb©»©/c:fe©5aii^tf 9 ^ 

[0S©ffi*^IKB^] 

[si] *^©nss©-^©gijgPp a pfb^^n 

^W7'>XfA©M^tyn7 7lT^5o 
[0 2 ] *«W©*fll©-«J»© g ij»ififfc*^3 
y/ W 7 Xf A©«if^*^T 7 P-T^-f - h Tfe So 

[0 3 ] *mn<Dmffi<D~BM<D g nnaf bttMEMs 

>/W7'>X"rA©»f^©ftflcW*^TSl^HT*S. 
[04] *«W©ffi©^ffli©««l©e»a« n fb«<l6ft 

2 py/Wv, 3 EtISB (7pyvAgl?B a P E 

«m «*»*yny5Ay-XEB¥S) » 2 1- 

•••a$p a p{bm 2ia mmzMtimmm^m, 21 

b mmm^shimm^m, 21c -tp^a 

v-xmmnsM^m. 2 1 d m&iui&mmjjjmf- 

I5> 31 yp^Ay-x, 32 yp^Agp 



(5) ftrlHW 1 1 -3 2 7 8 8 7 

7 8 
dp\ 3 3 «*»#yn^AV-^ 3 3a, 3 3* *b aWWUEaL, 



[01] 



2 i 4 



Etta* 



3 



31 



32 



33 




[03] 



oaooio nuairriFiCATioir division. 

000020 PROGRAM ID. SAMPLE 1. 



001010 
001020 



INITIALIZE #-1. 
INITIALIZE *~2. 



001030 BO?E ^1 TO 
001036 

001040 IHITIALI2H ^-^fe. 

001C50 READ 7Y<<A,l 
OOtOflO KEY l. 

001070 PERFORM 



001080 



IP t*-*!* = 0 THKET 



002000 FILE-SERCH. 



002010 HOVE TO 
002020 ^ - 2 . 

002026 INITIALIZE 

002030 READ 7y4jU2 
002040 IEY * — 2. 

0D20S0 PERF01QI * r -»5»W2. 

002060 PERFORM T'-^fiaX. 



21a 

1 



WAft 



2fe 



0OOO1O MOVE OTfffitl TO 

000020 <H$f»2 . 

000030 HHTIALIZH Kaffir 3. 

OOOQ40 READ (SMUA 
000050 XSY {R3Itt2. 

000080 PERFORM gglfeS. 



OOOOIO IDENTIFICATION DIVISIOH. 
000020 PROGRAK-ID. SAEPLfil. 



001010 
001020 



HCTIALIZE 



l001O3O 




001080 


if -or 
i 


002000 FILE-SERCH. 


1002010 


IBAfffBlEiil r 



THEK 



002050 
002060 



-32 



-33 



-33a 



-33b 



perform *-$arx 



(6) &P*1¥ 1 1 -3 2 7 88 7 




(7) »W¥ 1 1 -3 2 7 8 8 7 
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3 



31 



32 



33 




